object BCalcBox: TBCalcBox
  Left = 468
  Top = 176
  HorzScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Business Calculator'
  ClientHeight = 273
  ClientWidth = 465
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  PixelsPerInch = 96
  PopupMenu = PopupMenu1
  OnActivate = FormActivate
  OnDestroy = FormDestroy
  TextHeight = 16
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 465
    Height = 273
    BevelInner = bvLowered
    BorderWidth = 2
    BorderStyle = bsSingle
    Color = clGray
    Ctl3D = True
    Font.Color = 8453888
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentCtl3D = False
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 0
    object ListBox1: TListBox
      Left = 9
      Top = 9
      Width = 208
      Height = 248
      Hint = ' Right Click For Menu'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'System'
      Font.Pitch = fpFixed
      Font.Style = []
      ItemHeight = 15
      MultiSelect = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnKeyDown = ListBox1KeyDown
      OnKeyPress = FormKeyPress
    end
    object MaskEdit1: TEdit
      Left = 243
      Top = 21
      Width = 193
      Height = 22
      Color = clBlack
      Font.Color = clLime
      Font.Height = 13
      Font.Name = 'System'
      Font.Pitch = fpFixed
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      Text = '                     .'
    end
    object ClearTapeB: TBitBtn
      Left = 224
      Top = 64
      Width = 30
      Height = 57
      Caption = 'CT'
      Font.Color = clBlack
      Font.Height = -21
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = ClearTapeBClick
      Layout = blGlyphRight
    end
    object ClearEntB: TBitBtn
      Left = 224
      Top = 128
      Width = 30
      Height = 57
      Caption = 'CE'
      Font.Color = clBlack
      Font.Height = -21
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = ClearEntBClick
      Layout = blGlyphRight
    end
    object ClearB: TBitBtn
      Left = 224
      Top = 192
      Width = 30
      Height = 65
      Caption = 'C'
      Font.Color = clBlack
      Font.Height = -21
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      TabOrder = 4
      OnClick = ClearBClick
      Layout = blGlyphRight
    end
    object ZeroB: TBitBtn
      Left = 304
      Top = 224
      Width = 73
      Height = 30
      Caption = '0'
      Font.Color = clBlack
      Font.Height = -21
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      OnClick = ZeroBClick
      Layout = blGlyphRight
    end
    object EqualB: TBitBtn
      Left = 424
      Top = 184
      Width = 30
      Height = 73
      Caption = '='
      Font.Color = clBlack
      Font.Height = -23
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = EqualBClick
    end
    object DecimalB: TBitBtn
      Left = 384
      Top = 224
      Width = 30
      Height = 30
      Caption = '.'
      Font.Color = clBlack
      Font.Height = -21
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      OnClick = DecimalBClick
      Layout = blGlyphBottom
    end
    object MemAddB: TBitBtn
      Left = 264
      Top = 224
      Width = 30
      Height = 30
      Caption = 'MA'
      Font.Color = clBlack
      Font.Height = -21
      Font.Name = 'System'
      Font.Pitch = fpVariable
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      OnClick = MemAddBClick
      Layout = blGlyphBottom
    end
  end
  object PlusB: TBitBtn
    Left = 424
    Top = 104
    Width = 30
    Height = 73
    Caption = '+'
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = 'MS Serif'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = PlusBClick
  end
  object MemSuB: TBitBtn
    Left = 264
    Top = 184
    Width = 30
    Height = 30
    Caption = 'MS'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = MemSuBClick
    Layout = blGlyphBottom
  end
  object MemRclB: TBitBtn
    Left = 264
    Top = 144
    Width = 30
    Height = 30
    Caption = 'MR'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = MemRclBClick
    Layout = blGlyphBottom
  end
  object MemClrB: TBitBtn
    Left = 264
    Top = 104
    Width = 30
    Height = 30
    Caption = 'MC'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = MemClrBClick
    Layout = blGlyphBottom
  end
  object PercentB: TBitBtn
    Left = 264
    Top = 64
    Width = 30
    Height = 30
    Caption = '%'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = PercentBClick
    Layout = blGlyphBottom
  end
  object ChangeB: TBitBtn
    Left = 304
    Top = 64
    Width = 30
    Height = 30
    Caption = '+/-'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = ChangeBClick
    Layout = blGlyphBottom
  end
  object DivideB: TBitBtn
    Left = 344
    Top = 64
    Width = 30
    Height = 30
    Caption = '/'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = DivideBClick
    Layout = blGlyphBottom
  end
  object TimesB: TBitBtn
    Left = 384
    Top = 64
    Width = 30
    Height = 30
    Caption = '*'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = TimesBClick
    Layout = blGlyphTop
  end
  object MinusB: TBitBtn
    Left = 424
    Top = 64
    Width = 30
    Height = 30
    Caption = '-'
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    OnClick = MinusBClick
    Layout = blGlyphBottom
  end
  object OneB: TBitBtn
    Left = 304
    Top = 184
    Width = 30
    Height = 30
    Caption = '1'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = OneBClick
    Layout = blGlyphBottom
  end
  object TwoB: TBitBtn
    Left = 344
    Top = 184
    Width = 30
    Height = 30
    Caption = '2'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = OneBClick
    Layout = blGlyphBottom
  end
  object ThreeB: TBitBtn
    Left = 384
    Top = 184
    Width = 30
    Height = 30
    Caption = '3'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = OneBClick
    Layout = blGlyphBottom
  end
  object FourB: TBitBtn
    Left = 304
    Top = 144
    Width = 30
    Height = 30
    Caption = '4'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    OnClick = OneBClick
    Layout = blGlyphBottom
  end
  object FiveB: TBitBtn
    Left = 344
    Top = 144
    Width = 30
    Height = 30
    Caption = '5'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 14
    OnClick = OneBClick
    Layout = blGlyphBottom
  end
  object SixB: TBitBtn
    Left = 384
    Top = 144
    Width = 30
    Height = 30
    Caption = '6'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 15
    OnClick = OneBClick
    Layout = blGlyphBottom
  end
  object SevenB: TBitBtn
    Left = 304
    Top = 104
    Width = 30
    Height = 30
    Caption = '7'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 16
    OnClick = OneBClick
    Layout = blGlyphBottom
  end
  object EightB: TBitBtn
    Left = 344
    Top = 104
    Width = 30
    Height = 30
    Caption = '8'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 17
    OnClick = OneBClick
    Layout = blGlyphBottom
  end
  object NineB: TBitBtn
    Left = 384
    Top = 104
    Width = 30
    Height = 30
    Caption = '9'
    Font.Color = clBlack
    Font.Height = -21
    Font.Name = 'System'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    TabOrder = 18
    OnClick = OneBClick
    Layout = blGlyphBottom
  end
  object PopupMenu1: TPopupMenu
    Left = 153
    Top = 17
    object File1: TMenuItem
      Caption = '&File          Alt-F'
      object Copy1: TMenuItem
        Caption = '&Copy'
        OnClick = Copy1Click
        ShortCutText = 'Ctrl+C'
      end
      object Print1: TMenuItem
        Caption = '&Print'
        OnClick = Print1Click
        ShortCutText = 'Ctrl+P'
      end
    end
    object Help1: TMenuItem
      Caption = '&Help         F1'
      object HelpContext1: TMenuItem
        Caption = 'Contents'
        OnClick = HelpContext1Click
      end
      object HelpSearch1: TMenuItem
        Caption = 'Search'
        OnClick = HelpSearch1Click
      end
    end
    object Close1: TMenuItem
      Caption = 'E&xit          Alt-F4'
      OnClick = Close1Click
    end
  end
end